function [hl,ht] = xlin(x,txt,ylo,yhi,ytxt,lincolor, txtpos) 
% Documentation: 
%   x       = x-Position
%   txt     = Text String
%   ylo     = Low y-Value (Start)
%   yhi     = High y-Value (End)
%   ytxt    = Text Starting Position
if strcmp(txtpos, 'top')
xadj = +0.08;
else
    xadj = -0.08;
end
hold on
hl = plot([x x],[ylo yhi],'DisplayName',txt, 'LineWidth',.6, 'LineStyle','-.', 'Color', lincolor, 'Marker','none');
ht = text(x+xadj,ytxt, txt, 'Horiz', 'left', 'Vert', txtpos, 'Rotation',90 , 'fontsize', 10, 'Interpreter','latex'); 
hold off
end